Aminet 7/Aminet 7 - August 1995.iso/Aminet/gfx/misc/MagicSelV1_75.lha/Install MagicSelector

Text File | 1995-05-20 | 4KB | 228 lines

; script to install MagicSelector
; Version 1.75
(set Opt 15)
(complete 0)
(set destdir "Sys:Prefs")
(set destdir2 "Sys:WBStartup")

(set installfiles
    (askoptions
        (prompt "Which of the following optional programs/helpfile should be installed ?")
        (help @askoptions-help)
        (choices "MagicSelector" "MagicSelector Preferences" "MagicSelector.Guide")
        (default Opt)
    )
)

(complete 20)

;Copy program files to destination.

(if (BITAND installfiles 1)
(copyfiles
    (source "WBStartup/MagicSelector")
    (dest destdir2)
)
)

(if (BITAND installfiles 1)
(copyfiles
    (source "WBStartup/MagicSelector.info")
    (dest destdir2)
)
)


(if (BITAND installfiles 2)
(copyfiles
    (source "Preferences/MagicSelector")
    (dest destdir)
)
)

(if (BITAND installfiles 2)
(copyfiles
    (source "Preferences/MagicSelector.info")
    (dest destdir)
)
)


(if (BITAND installfiles 4)
(
    (makedir ("Help:English")
    )

(copyfiles
    (source "Help/MagicSelector.guide")
    (dest "help:english/")
)
)
)

(if (BITAND installfiles 4)
(copyfiles
    (source "Help/MagicSelector.guide.info")
    (dest "help:english/")
)
)

(complete 40)
(set Opt 64)

(set installfiles
    (askoptions
        (prompt "Which of the following locale should be installed ?")
        (help @askoptions-help)
        (choices "Norsk" "Deutsch" "Svenska" "Italiano" "Polski" "Dansk" "English (built-in)")
        (default Opt)
    )
)

(if (BITAND installfiles 1)
(copyfiles
    (source "Preferences/Catalogs/Norsk/MagicSelector.Catalog")
    (dest "Locale:Catalogs/Norsk/")
)
)

(if (BITAND installfiles 2)
(copyfiles
    (source "Preferences/Catalogs/Deutsch/MagicSelector.Catalog")
    (dest "Locale:Catalogs/Deutsch/")
)
)

(if (BITAND installfiles 4)
(copyfiles
    (source "Preferences/Catalogs/Svenska/MagicSelector.Catalog")
    (dest "Locale:Catalogs/Svenska/")
)
)

(if (BITAND installfiles 8)
(copyfiles
    (source "Preferences/Catalogs/Italiano/MagicSelector.Catalog")
    (dest "Locale:Catalogs/italiano/")
)
)

(if (BITAND installfiles 16)
(copyfiles
    (source "Preferences/Catalogs/polski/MagicSelector.Catalog")
    (dest "Locale:Catalogs/polski/")
)
)

(if (BITAND installfiles 16)
(copyfiles
    (source "Preferences/Catalogs/Dansk/MagicSelector.Catalog")
    (dest "Locale:Catalogs/Dansk/")
)
)


(set Opt 3)
(complete 60)

(set installfiles
    (askoptions
        (prompt "Do you want to install Patterns/Sound Samples ?")
        (help @askoptions-help)
        (choices "Triumph Patterns" "Sound")
        (default Opt)
    )
)


(if (BITAND installfiles 1)
(run "lx x Triumph_Patterns/Patterns.lha t:"))

(if (BITAND installfiles 1)
(
     (set Patterns_dest
        (tackon
        (askdir
        (prompt "In which disk or drawer should the Triumph Patterns be installed? (A drawer WILL be created there.)")
        (help @askdir-help)
        (default @default-dest)
        )"Triumph Patterns")
        )

        (makedir Patterns_dest (infos))

        (copyfiles
            (prompt "Copying all Patterns ?")
            (help @copyfiles-help)
            (source "t:Triumph_Patterns/")
            (dest Patterns_dest)
            (pattern "#?")
            (infos)
            (files)
            (confirm)
)
        (run "delete t:Triumph_Patterns#? all")
)
)

(complete 80)

(if (BITAND installfiles 2)
(run "lx x Samples/Samples.lha t:"))

(if (BITAND installfiles 2)
(
     (set Samples_dest
        (tackon
        (askdir
        (prompt "In which disk or drawer should the Samples be installed? (A drawer WILL be created there.)")
        (help @askdir-help)
        (default @default-dest)
        )"Samples")
        )

        (makedir Samples_dest (infos))

        (copyfiles
            (prompt "Copying all Samples ?")
            (help @copyfiles-help)
            (source "t:Samples/")
            (dest Samples_dest)
            (pattern "#?")
            (infos)
            (files)
            (confirm)
)
        (run "delete t:Samples#? all")
)
)

(copyfiles
    (source "WBPattern.prefs")
    (dest "ENVARC:SYS/")
)

(copyfiles
    (source "Sound.prefs")
    (dest "ENVARC:SYS/")
)

;Correct @default-dest so that final information is correct.
(set @default-dest destdir)

(complete 95)

(message "FOR NEW USERS!\nYou have to set up MagicSelector Preferences to\n"
            "get the MagicSelector package to work at the next reboot.\n\n"
            "FOR OLD USERS! (1.50 or earlier)\nYou need to save the prefs file "
            "to update the prefsfile to version 1.75.\n\n"
            "Do NOT try to change the WBPattern settings when "
            "using MagicSelector. It will cause double "
            "background patterns at the Startup.\n\n"
            "THIS SOFTWARE PACKAGE IS SHAREWARE!\n"
)

(run "sys:prefs/MagicSelector")

(exit)